Schnitt ein

x-Schnitt

x

a(x, y) = If[x ≟ 0 ∧ y ≟ 0, 1, ((2 * x) * y^(4) / (x^(2) + y^(2))^(2)) + 1]
A = (0.0999999999999992, -0.3, 0)
B_1: (x(A), y(A), a(x(A), y(A)))
b(x, y) = If[x ≟ 0 ∧ y ≟ 0, 0, Derivative[a(x, y), x, 1]]
C: (x(B_1) + 1, y(B_1), a(x(B_1), y(B_1)) + b(x(B_1), y(B_1)))
u = Vector(B_1, C)
e = true
k = -0.85 (slider from -4 to 4, step 0.01)
s = 1 (slider from k to 3.5, step 0.1)
B: (s, 0, a(s, 0))
E: (s + 1, 0, a(s, 0) + b(s, 0))
v = Vector(B, E)
f = CurveCartesian(k, t, a(k, t), t, -4, 4)
c(x, y) = If[x > k, a(x, y)]
d = CurveCartesian(t, 0, a(t, 0), t, k, 4)
D = (-1.42247796234773, -0.9106959025470681)
F = (0.5821289036544862, -0.9106959025470681)